home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 November / Ahoy_Magazine_87-11_1987_Double_L.d64 / Caps-Lock 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  756b  |  18 lines
  1. 10 rem caps-lock for the c-64 by jim partin
  2. 20 fort=49152to49198:readdt:poket,dt:nextt
  3. 30 sys49152:poke49153,0:poke49154,224:poke49156,0:poke49157,224
  4. 40 poke49162,255:poke49192,255:sys49152
  5. 50 fort=53000to53053:reada:poket,a:nextt
  6. 60 fort=193to218:readad:poke60289+ad,t:nextt
  7. 70 sys53000
  8. 80 print"ctrl-f1 to activate caps-lock"
  9. 90 print"ctrl-f3 to deactivate":end
  10. 100 data173,0,160,141,0,160,172,5,192,192,191,240,23,238,1,192,238,4,192
  11. 110 data173,4,192,240,3,76,0,192,238,2,192,238,5,192,76,0,192,172,4,192,192
  12. 120 data255,240,3,76,13,192,96
  13. 130 data120,169,21,141,20,3,169,207,141,21,3,88,96,165,197,201,4,240
  14. 140 data7,201,5,240,17,76,49,234,173,141,2,201,4,208,4,169,53,133
  15. 150 data1,76,49,234,173,141,2,201,4,208,4,169,55,133,1,76,49,234
  16. 160 data10,28,20,18,14,21,26,29,33,34,37,42,36,39,38,41,62,17
  17. 170 data13,22,30,31,9,23,25,12
  18.